home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / kill2hb.clssa < prev    next >
Text File  |  1995-01-20  |  658b  |  29 lines
  1. /***********************************************************************
  2.   GADGET: "'Entferne 2 HB'" "5" AUTO TYP: "?"
  3.  
  4.   $DAT >>Kill2HB.clssa<<      04.10.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.   GetAnimInfo
  15.   IF RESULT="" THEN Message "'Keine Animimation vorhanden.'"
  16.   ELSE DO
  17.     GetArea
  18.     Merke=RESULT
  19.     GetAnimInfo
  20.     PARSE VAR RESULT . 'POS' f .
  21.     SetArea FROM f TO f+1
  22.     DeleteArea AREA
  23.     SetArea Merke
  24.   END
  25.  
  26.   FailAt AltFail
  27. exit
  28.  
  29.